home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00028_Script_Face Sprite < prev    next >
Text File  |  1997-09-30  |  1KB  |  51 lines
  1. -- Face Sprite
  2.  
  3.  
  4.  
  5.  
  6. property pOffset,pTarget
  7.  
  8. on getPropertyDescriptionList
  9.   if not alphamaniacCheck(the currentSpriteNum) then exit
  10.   
  11.   set pList=[:]
  12.   addProp pList,#pTarget,[format:#integer,comment:"Face Sprite #:", Default:0]
  13.   addProp pList,#pOffset,[format:#integer,comment:"Offset Angle:",¼
  14.                          Default:0,range:[min:0,max:360]]
  15.   return pList
  16. end
  17.  
  18. on beginSprite me
  19.   set s=the spriteNum of me
  20.   if not alphaManiac(s) then exit
  21.   
  22.   face(me)  
  23. end
  24.  
  25. on exitFrame me
  26.   set s=the spriteNum of me
  27.   if not alphaManiac(s) then exit
  28.   
  29.   face(me, pTarget)
  30. end
  31.  
  32. on face me,targetSprite
  33.   set s=the spriteNum of me
  34.   if not alphaManiac(s) then exit
  35.   
  36.   if integerP(targetSprite) then set pTarget=targetSprite
  37.   set targPoint=point(the locH of sprite pTarget,the locV of sprite pTarget)
  38.   rotate(sprite s,[animMode:#RelativeToPoint,relativeTo:targPoint,offsetAngle:pOffset])
  39. end
  40.  
  41. on getBehaviorDescription me
  42.   set msg= "This cool tool makes your AlphaManiac point to a specified sprite. "
  43.   put return & return after msg
  44.   put "Parameters:" & return & "-----------" & return  after msg
  45.   put "*  Face Sprite#: Give it a sprite number to point to" & return after msg
  46.   put "*          Offset : Use this to tweak the direction it points" after msg
  47.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  48.   return msg
  49. end
  50.  
  51.